inherited f_PlanoColheita: Tf_PlanoColheita
  Left = 339
  Top = 136
  Width = 786
  Height = 539
  Caption = 'PROGRAMA'#199#195'O DE COLHEITA'
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited MMJPanel1: TMMJPanel
    Top = 0
    Width = 770
    Height = 61
    Align = alTop
    inherited btnGravar: TBitBtn
      Left = 3
      Top = 3
      Width = 75
      Height = 55
      Layout = blGlyphTop
    end
    inherited btnIncluir: TBitBtn
      Left = 2
      Top = 3
      Width = 75
      Height = 55
      Layout = blGlyphTop
    end
    inherited btnCancelar: TBitBtn
      Left = 81
      Top = 3
      Width = 75
      Height = 55
      Layout = blGlyphTop
    end
    inherited btnExcluir: TBitBtn
      Left = 80
      Top = 3
      Width = 75
      Height = 55
      Layout = blGlyphTop
    end
    inherited btnSair: TBitBtn [4]
      Left = 235
      Top = 3
      Width = 75
      Height = 55
      Layout = blGlyphTop
    end
    inherited btnProcurar: TBitBtn [5]
      Left = 526
      Top = 3
      Width = 75
      Height = 55
      Visible = False
      Layout = blGlyphTop
    end
    object btn9: TBitBtn
      Left = 158
      Top = 3
      Width = 75
      Height = 55
      Caption = 'Imprimir'
      PopupMenu = PopupMenu1
      TabOrder = 6
      Glyph.Data = {
        360C0000424D360C000000000000360000002800000020000000200000000100
        180000000000000C0000C40E0000C40E00000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFDFDFDFDFDFDFDFDFDFD
        FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFCFCF1F1F1E9E9E9E7E7E7E7E7E7E7E7
        E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E9E9E9F1
        F1F1FCFCFCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0F0F0BDBDBD8F8F8F8787878787878787
        878787878787878787878787878787878787878787878787878787878F8F8FBD
        BDBDF0F0F0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FAFAFAF9F9F9F9F9F9F9F9F9F7F7F7E2E2E2A9A9A9FCFCFCFCFCFCFCFCFCFCFC
        FCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCA9
        A9A9E2E2E2F7F7F7F9F9F9F9F9F9F9F9F9FAFAFAFFFFFFFFFFFFFFFFFFF2F2F2
        DADADACCCCCCCACACACACACAC9C9C9B8B8B8939393F5F5F5C3C3C3C1C1C1C1C1
        C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C3C3C3F5F5F593
        9393B8B8B8C9C9C9CACACACACACACCCCCCDADADAF2F2F2FFFFFFFCFCFCDADADA
        A3A3A38686867A7A7A7070706F6F6F6A6A6A747474F6F6F6F6F6F6F6F6F6F6F6
        F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F674
        74746A6A6A6F6F6F7070707A7A7A868686A3A3A3DADADAFCFCFCF9F9F9CCCCCC
        8383835F5F5F7676768787878989898888888A8A8AEEEEEEBFBFBFBDBDBDBDBD
        BDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBFBFBFEEEEEE8A
        8A8A8888888989898787877676765F5F5F838383CCCCCCF9F9F9FAFAFACECECE
        7474748C8C8C9E9E9EA1A1A1A2A2A29393936F6F6FEFEFEFEFEFEFEFEFEFEFEF
        EFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEF6F
        6F6F939393A2A2A2A1A1A19E9E9E8C8C8C747474CECECEFAFAFAFDFDFDDFDFDF
        8888889F9F9FA8A8A8A9A9A9A9A9A9929292696969E8E8E8C8C8C8C7C7C7C7C7
        C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C8C8C8E8E8E869
        6969929292A9A9A9A9A9A9A8A8A89F9F9F888888DFDFDFFDFDFDFFFFFFF0F0F0
        999999A7A7A7AFAFAFB0B0B0B0B0B09797976F6F6FD6D6D6C7C7C7C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C7C7C7D6D6D66F
        6F6F979797B0B0B0B0B0B0AFAFAFA7A7A7999999F0F0F0FFFFFFFFFFFFF5F5F5
        A2A2A2AEAEAEB6B6B6B7B7B7B5B5B5A4A4A47474748484847979797676767676
        7676767676767676767676767676767676767676767676767679797984848474
        7474A4A4A4B3B3B3B2B2B2B4B4B4AEAEAEA2A2A2F5F5F5FFFFFFFFFFFFF4F4F4
        A6A6A6B5B5B5BDBDBDBEBEBEBEBEBEBBBBBBB3B3B3AAAAAAA7A7A7A6A6A6A6A6
        A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A7A7A7AAAAAAB3
        B3B3B5B5B5839D9F48ACB2829D9EB0B0B0A6A6A6F4F4F4FFFFFFFFFFFFF4F4F4
        AAAAAABCBCBCC4C4C4C5C5C5C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6
        C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6
        C6C6ADADAD0FBBDB00D7FE0EBBDBA4A4A4AAAAAAF4F4F4FFFFFFFFFFFFF5F5F5
        AEAEAEC3C3C3CBCBCBCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        CCCCB2B2B20FA3DB00B5FE0FA2DBAAAAAAAEAEAEF5F5F5FFFFFFFFFFFFF4F4F4
        B2B2B2CACACAD1D1D1D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2
        D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2
        D2D2CCCCCC92A3AE5192BB91A2ADC4C4C4B2B2B2F4F4F4FFFFFFFFFFFFF4F4F4
        B7B7B7D0D0D0D7D7D7D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8
        D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8
        D8D8D7D7D7C5C5C5B1B1B1C5C5C5CFCFCFB7B7B7F4F4F4FFFFFFFFFFFFF4F4F4
        B9B9B9D5D5D5DDDDDDDDDDDDDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDE
        DEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDE
        DEDECDCDCD69B17448D95C68B074C5C5C5B9B9B9F4F4F4FFFFFFFFFFFFF5F5F5
        BCBCBCDBDBDBE3E3E3E3E3E3E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4
        E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4
        E4E4C1C1C12BCA5C2EE2662BCA5CB9B9B9BCBCBCF5F5F5FFFFFFFFFFFFF5F5F5
        BEBEBEE0E0E0E8E8E8E9E9E9EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEA
        EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEA
        EAEAD8D8D854A9790EBC5C54A878CFCFCFBEBEBEF5F5F5FFFFFFFFFFFFF5F5F5
        C1C1C1E6E6E6EEEEEEEFEFEFF0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0
        F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0
        F0F0EEEEEEDDDDDDCACACADCDCDCE4E4E4C1C1C1F5F5F5FFFFFFFFFFFFF6F6F6
        C1C1C1E9E9E9F3F3F3F4F4F4F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F4F4F4F3F3F3E9E9E9C1C1C1F6F6F6FFFFFFFFFFFFFAFAFA
        C1C1C1E6E6E6F7F7F7F9F9F9F9F9F9FAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFA
        FAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFA
        FAFAFAFAFAF9F9F9F9F9F9F7F7F7E6E6E6C1C1C1FAFAFAFFFFFFFFFFFFFEFEFE
        D9D9D9C7C7C7EAEAEAF3F3F3F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F3F3F3EAEAEAC7C7C7D9D9D9FEFEFEFFFFFFFFFFFFFFFFFF
        FBFBFBDCDCDCC4C4C4C7C7C7BDBDBDB5B5B5B1B1B1C8C8C8C8C8C8C8C8C8C8C8
        C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8B1
        B1B1B5B5B5BDBDBDC7C7C7C4C4C4DCDCDCFBFBFBFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFEFEFEFBFBFBF7F7F7D2D2D2BFBFBFAFAFAFF0F0F0F0F0F0F0F0F0F0F0
        F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0AF
        AFAFBFBFBFD2D2D2F7F7F7FBFBFBFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFE3E3E3CACACABABABAF5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5BA
        BABACACACAE3E3E3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFF9F9F9C9C9C9BFBFBFF2F2F2F2F2F2F2F2F2F2F2
        F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2BF
        BFBFC9C9C9F9F9F9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5F5F5BCBCBCEFEFEFEFEFEFEFEFEFEFEF
        EFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFBC
        BCBCF5F5F5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD3D3D3ECECECECECECECECECECEC
        ECECECECECECECECECECECECECECECECECECECECECECECECECECECECECECECD3
        D3D3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD3D3D3E8E8E8E8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8D3
        D3D3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDCDCDCD6D6D6D5D5D5D5D5D5D5D5
        D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D6D6D6DC
        DCDCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBF1F1F1F1F1F1F1F1F1F1F1
        F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1FB
        FBFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
      Layout = blGlyphTop
    end
  end
  inherited MMJPanel2: TMMJPanel
    Left = 224
    Top = 166
    Width = 290
    Align = alNone
  end
  object MMJPanel4: TMMJPanel [2]
    Left = 0
    Top = 61
    Width = 770
    Height = 211
    Align = alTop
    TabOrder = 2
    Silhuette.Shape.ShapeText = 'Shape text'
    Silhuette.PictureShape.Picture.Data = {07544269746D617000000000}
    Silhuette.PictureShape.DisplayPicture = True
    Background.StartColor = clActiveCaption
    Background.EndColor = clWhite
    Background.FillType = GradUpDown
    object lbl9: TLabel
      Left = 13
      Top = 4
      Width = 56
      Height = 16
      Caption = 'Contrato :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl10: TLabel
      Left = 155
      Top = 4
      Width = 68
      Height = 16
      Caption = 'Comprador'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl11: TLabel
      Left = 454
      Top = 4
      Width = 75
      Height = 16
      Caption = 'Empreiteiro :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl12: TLabel
      Left = 13
      Top = 47
      Width = 69
      Height = 16
      Caption = 'Data Inicio :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl13: TLabel
      Left = 136
      Top = 47
      Width = 67
      Height = 16
      Caption = 'Data Final :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl14: TLabel
      Left = 338
      Top = 47
      Width = 34
      Height = 16
      Caption = 'Cota :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl16: TLabel
      Left = 258
      Top = 47
      Width = 72
      Height = 16
      Caption = 'Qtde Caixa :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl17: TLabel
      Left = 418
      Top = 47
      Width = 53
      Height = 16
      Caption = 'Situa'#231#227'o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object dbedtCTR_N_CONTRATO: TDBEdit
      Left = 12
      Top = 22
      Width = 100
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'CTR_N_CONTRATO'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object btn3: TBitBtn
      Left = 114
      Top = 21
      Width = 37
      Height = 25
      Caption = '...'
      TabOrder = 1
      OnClick = btn3Click
    end
    object btn4: TBitBtn
      Left = 415
      Top = 21
      Width = 37
      Height = 25
      Caption = '...'
      TabOrder = 2
      OnClick = btn4Click
    end
    object dbedtCOMPRADOR: TDBEdit
      Left = 154
      Top = 22
      Width = 260
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'COMPRADOR'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object dbedtEMPREITEIRO: TDBEdit
      Left = 453
      Top = 22
      Width = 260
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'EMPREITEIRO'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object btn5: TBitBtn
      Left = 715
      Top = 21
      Width = 37
      Height = 25
      Caption = '...'
      TabOrder = 5
      OnClick = btn5Click
    end
    object JvDBDateEdit3: TJvDBDateEdit
      Left = 13
      Top = 64
      Width = 121
      Height = 24
      DataField = 'PGC_DATAINI'
      DataSource = DtSrc
      BorderStyle = bsNone
      BevelKind = bkFlat
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnKeyPress = FormKeyPress
    end
    object JvDBDateEdit4: TJvDBDateEdit
      Left = 136
      Top = 64
      Width = 121
      Height = 24
      DataField = 'PGC_DATAFIM'
      DataSource = DtSrc
      BorderStyle = bsNone
      BevelKind = bkFlat
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnKeyPress = FormKeyPress
    end
    object JvDBSpinEdit1: TJvDBSpinEdit
      Left = 336
      Top = 64
      Width = 83
      Height = 24
      BorderStyle = bsNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnKeyPress = FormKeyPress
      BevelKind = bkFlat
      DataField = 'PGC_COTA'
      DataSource = DtSrc
    end
    object JvDBGrid1: TJvDBGrid
      Left = 13
      Top = 89
      Width = 740
      Height = 120
      BorderStyle = bsNone
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 10
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = JvDBGrid1CellClick
      OnKeyDown = JvDBGrid1KeyDown
      OnKeyUp = JvDBGrid1KeyUp
      OnMouseDown = JvDBGrid1MouseDown
      OnMouseUp = JvDBGrid1MouseUp
      BevelKind = bkFlat
      AutoSizeColumns = True
      SelectColumnsDialogStrings.Caption = 'Select columns'
      SelectColumnsDialogStrings.OK = '&OK'
      SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
      EditControls = <>
      RowsHeight = 17
      TitleRowHeight = 17
      Columns = <
        item
          Expanded = False
          FieldName = 'CTR_N_CONTRATO'
          Title.Caption = 'N'#186' Contrato'
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NTC_STATUS'
          Title.Caption = 'Situa'#231#227'o'
          Width = 72
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PRODUTO'
          Title.Caption = 'Fruta'
          Width = 142
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PRO_DESCRICAO'
          Title.Caption = 'Propriedade'
          Width = 235
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PGC_DATAINI'
          Title.Caption = 'Data Ini.'
          Width = 82
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PGC_DATAFIM'
          Title.Caption = 'Data Fim'
          Width = 82
          Visible = True
        end>
    end
    object dbedtNTC_STATUS: TDBEdit
      Left = 419
      Top = 64
      Width = 333
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'NTC_STATUS'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
    end
    object JvDBCalcEdit2: TJvDBCalcEdit
      Left = 258
      Top = 64
      Width = 77
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      PopupAlign = epaLeft
      ShowButton = False
      TabOrder = 8
      DecimalPlacesAlwaysShown = False
      OnKeyPress = FormKeyPress
      DataField = 'PGC_QUTDECX'
      DataSource = DtSrc
    end
  end
  object MMJPanel3: TMMJPanel [3]
    Left = 0
    Top = 272
    Width = 770
    Height = 229
    Align = alTop
    TabOrder = 3
    Silhuette.Shape.ShapeText = 'Shape text'
    Silhuette.PictureShape.Picture.Data = {07544269746D617000000000}
    Silhuette.PictureShape.DisplayPicture = True
    Background.StartColor = clActiveCaption
    Background.EndColor = clWhite
    Background.FillType = GradUpDown
    object lbl1: TLabel
      Left = 13
      Top = 6
      Width = 51
      Height = 16
      Caption = 'N'#186' NPF :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl2: TLabel
      Left = 14
      Top = 93
      Width = 70
      Height = 16
      Caption = 'Variedade :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl3: TLabel
      Left = 138
      Top = 6
      Width = 53
      Height = 16
      Caption = 'Situa'#231#227'o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl4: TLabel
      Left = 13
      Top = 50
      Width = 114
      Height = 16
      Caption = 'Data Programada :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl5: TLabel
      Left = 136
      Top = 50
      Width = 85
      Height = 16
      Caption = 'Data Entrada :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl6: TLabel
      Left = 259
      Top = 50
      Width = 74
      Height = 16
      Caption = 'Data Saida :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl7: TLabel
      Left = 14
      Top = 138
      Width = 61
      Height = 16
      Caption = 'Motorista :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl8: TLabel
      Left = 258
      Top = 138
      Width = 41
      Height = 16
      Caption = 'Placa :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object JvDBGrid2: TJvDBGrid
      Left = 384
      Top = 24
      Width = 374
      Height = 202
      BorderStyle = bsNone
      DataSource = ds1
      ReadOnly = True
      TabOrder = 10
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      BevelKind = bkFlat
      AutoSizeColumns = True
      SelectColumnsDialogStrings.Caption = 'Select columns'
      SelectColumnsDialogStrings.OK = '&OK'
      SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
      EditControls = <>
      RowsHeight = 17
      TitleRowHeight = 17
      Columns = <
        item
          Expanded = False
          FieldName = 'NTC_ID'
          Title.Caption = 'N'#186' NPF'
          Width = 79
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CTR_N_CONTRATO'
          Title.Caption = 'N'#186' Contrato'
          Width = 116
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NTC_QUTDENF'
          Title.Caption = 'Quantidade '
          Width = 79
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NTC_STATUS'
          Title.Caption = 'Situa'#231#227'o'
          Width = 80
          Visible = True
        end>
    end
    object dbedtNTC_ID: TDBEdit
      Left = 13
      Top = 24
      Width = 122
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'NTC_ID'
      DataSource = ds1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object dbedtPRODUTO: TDBEdit
      Left = 13
      Top = 111
      Width = 328
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'PRODUTO'
      DataSource = ds1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object btn1: TBitBtn
      Left = 344
      Top = 110
      Width = 37
      Height = 25
      Caption = '...'
      TabOrder = 2
      OnClick = btn1Click
    end
    object dbedtNTC_STATUS1: TDBEdit
      Left = 138
      Top = 24
      Width = 241
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'NTC_STATUS'
      DataSource = ds1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object JvDBDateEdit1: TJvDBDateEdit
      Left = 13
      Top = 68
      Width = 121
      Height = 24
      DataField = 'NTC_DATA'
      DataSource = ds1
      BorderStyle = bsNone
      BevelKind = bkFlat
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnKeyPress = FormKeyPress
    end
    object JvDBDateEdit2: TJvDBDateEdit
      Left = 136
      Top = 68
      Width = 121
      Height = 24
      DataField = 'NTC_ENTRADA'
      DataSource = ds1
      BorderStyle = bsNone
      Color = 10930928
      BevelKind = bkFlat
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      DisabledColor = 10930928
    end
    object JvDBDateEdit6: TJvDBDateEdit
      Left = 259
      Top = 68
      Width = 121
      Height = 24
      DataField = 'NTC_SAIDA'
      DataSource = ds1
      BorderStyle = bsNone
      Color = 10930928
      BevelKind = bkFlat
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      DisabledColor = 10930928
    end
    object dbedtNOMETRANSP: TDBEdit
      Left = 13
      Top = 156
      Width = 204
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'NOMETRANSP'
      DataSource = ds1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
    object btn2: TBitBtn
      Left = 219
      Top = 155
      Width = 37
      Height = 25
      Caption = '...'
      TabOrder = 8
      OnClick = btn2Click
    end
    object dbedtPLACATRANSP: TDBEdit
      Left = 258
      Top = 156
      Width = 124
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'PLACATRANSP'
      DataSource = ds1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
    end
    object btn6: TBitBtn
      Left = 13
      Top = 185
      Width = 86
      Height = 40
      Caption = 'Gravar'
      Enabled = False
      PopupMenu = PopupMenu1
      TabOrder = 11
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F00000000000000000000000000000000
        00000000000000000000000000000000000000007F7F7FBFBFBFBFBFBF000000
        FF0000FF00000000007F7F7FFF0000FF0000FFFFFFBFBFBFBFBFBF000000FF00
        00FF0000000000BFBFBFBFBFBF000000FF0000FF00000000007F7F7FFF0000FF
        0000FFFFFFBFBFBFBFBFBF000000FF0000FF0000000000BFBFBFBFBFBF000000
        FF0000FF0000000000BFBFBF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBF000000FF00
        00FF0000000000BFBFBFBFBFBF000000FF0000FF00007F7F0000000000000000
        00000000000000000000007F7F00FF0000FF0000000000BFBFBFBFBFBF000000
        FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
        00FF0000000000BFBFBFBFBFBF000000FF00007F7F0000000000000000000000
        00000000000000000000000000007F7F00FF0000000000BFBFBFBFBFBF000000
        FF0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        00FF0000000000BFBFBFBFBFBF000000FF0000000000FFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000BFBFBFBFBFBF000000
        FF0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        00FF0000000000BFBFBFBFBFBF000000FF0000000000FFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000BFBFBFBFBFBF000000
        000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        00000000000000BFBFBFBFBFBF000000FF0000000000FFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000BFBFBFBFBFBF7F7F7F
        0000000000000000000000000000000000000000000000000000000000000000
        000000007F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF}
    end
    object btn7: TBitBtn
      Left = 101
      Top = 185
      Width = 86
      Height = 40
      Caption = 'Excluir'
      PopupMenu = PopupMenu1
      TabOrder = 12
      OnClick = btn7Click
      Glyph.Data = {
        1E070000424D1E070000000000003600000028000000160000001A0000000100
        180000000000E8060000C30E0000C30E00000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
        BFBFBFBF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        0000BFBFBFBFBFBF0000000000007F7F7F7F7F7F7F7F7FBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBF7F7F7F7F7F7F7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBF00000000FF00007F00007F0000000000007F7F7F7F7F7F7F7F7FBFBF
        BFBFBFBFBFBFBFBFBFBF0000FF0000007F7F7F7F7F7F7F7F7F7F7F7FBFBFBFBF
        BFBFBFBFBFBFBFBF00000000FF00007F00007F00007F0000007F7F7F7F7F7F7F
        7F7F7F7F7FBFBFBFBFBFBF0000FF00007F0000000000007F7F7F7F7F7F7F7F7F
        7F7F7FBFBFBFBFBFBFBFBFBF00000000FF00007F00007F00007F000000000000
        7F7F7F7F7F7F7F7F7F7F7F7FBFBFBF0000FF00007F00007F0000000000007F7F
        7F7F7F7F7F7F7F7F7F7FBFBFBFBFBFBF00000000FF00007F00007F00007F0000
        7F0000000000007F7F7F7F7F7F7F7F7F0000FF00007F00007F00007F00007F00
        00000000007F7F7F7F7F7FBFBFBFBFBFBFBFBFBF00000000FF0000FF00007F00
        007F00007F00007F0000000000007F7F7F0000FF00007F00007F00007F00007F
        00007F00007F000000000000BFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBF0000FF
        00007F00007F00007F00007F00007F00000000000000007F00007F00007F0000
        7F00007F00007F00007F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
        BF0000FF0000FF00007F00007F00007F00007F00007F00007F00007F00007F00
        007F00007F00007F00007F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        0000BFBFBFBFBFBF0000FF0000FF00007F00007F00007F00007F00007F00007F
        00007F00007F00007F00007F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBF0000BFBFBFBFBFBFBFBFBF0000FF0000FF00007F00007F00007F0000
        7F00007F00007F00007F00007F0000007F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF00007F00
        007F00007F00007F00007F00007F0000007F7F7F7F7F7F7F7F7FBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF
        00007F00007F00007F00007F00007F00007F0000007F7F7F7F7F7F7F7F7F7F7F
        7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF0000FF00007F00007F00007F00007F00007F00007F0000000000007F7F7F7F
        7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBF0000FF00007F00007F00007F00007F00007F00007F00007F000000
        0000007F7F7F7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF
        BFBFBFBFBFBF0000FF00007F00007F00007F00007F00007F00007F00007F0000
        7F00007F0000007F7F7F7F7F7F7F7F7F7F7F7FBFBFBFBFBFBFBFBFBF0000BFBF
        BFBFBFBFBFBFBFBFBFBF0000FF00007F00007F00007F00007F0000FF0000FF00
        007F00007F00007F0000000000007F7F7F7F7F7F7F7F7FBFBFBFBFBFBFBFBFBF
        0000BFBFBFBFBFBFBFBFBF0000FF00007F00007F00007F00007F0000007F7F7F
        0000FF0000FF00007F00007F00007F0000000000007F7F7F7F7F7F7F7F7F7F7F
        7FBFBFBF0000BFBFBFBFBFBFBFBFBF0000FF00007F00007F00007F0000007F7F
        7FBFBFBFBFBFBF0000FF0000FF00007F00007F00007F0000000000007F7F7F7F
        7F7F7F7F7F7F7F7F0000BFBFBFBFBFBF0000FF00007F00007F00007F00007F00
        00007F7F7FBFBFBFBFBFBFBFBFBF0000FF0000FF00007F00007F00007F000000
        0000007F7F7F7F7F7F7F7F7F0000BFBFBFBFBFBF0000FF00007F00007F00007F
        0000007F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF00007F0000
        7F00007F0000000000007F7F7FBFBFBF0000BFBFBF0000FF0000FF0000FF0000
        7F00007F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF00
        00FF00007F00007F00007F000000BFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBF00
        00FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBF0000FF0000FF00007F00007FBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        0000}
    end
    object btn8: TBitBtn
      Left = 190
      Top = 184
      Width = 86
      Height = 40
      Caption = 'Imprimir'
      PopupMenu = PopupMenu1
      TabOrder = 13
      OnClick = btn8Click
      Glyph.Data = {
        360C0000424D360C000000000000360000002800000020000000200000000100
        180000000000000C0000C40E0000C40E00000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFDFDFDFDFDFDFDFDFDFD
        FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFCFCF1F1F1E9E9E9E7E7E7E7E7E7E7E7
        E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E9E9E9F1
        F1F1FCFCFCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0F0F0BDBDBD8F8F8F8787878787878787
        878787878787878787878787878787878787878787878787878787878F8F8FBD
        BDBDF0F0F0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FAFAFAF9F9F9F9F9F9F9F9F9F7F7F7E2E2E2A9A9A9FCFCFCFCFCFCFCFCFCFCFC
        FCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCA9
        A9A9E2E2E2F7F7F7F9F9F9F9F9F9F9F9F9FAFAFAFFFFFFFFFFFFFFFFFFF2F2F2
        DADADACCCCCCCACACACACACAC9C9C9B8B8B8939393F5F5F5C3C3C3C1C1C1C1C1
        C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C3C3C3F5F5F593
        9393B8B8B8C9C9C9CACACACACACACCCCCCDADADAF2F2F2FFFFFFFCFCFCDADADA
        A3A3A38686867A7A7A7070706F6F6F6A6A6A747474F6F6F6F6F6F6F6F6F6F6F6
        F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F674
        74746A6A6A6F6F6F7070707A7A7A868686A3A3A3DADADAFCFCFCF9F9F9CCCCCC
        8383835F5F5F7676768787878989898888888A8A8AEEEEEEBFBFBFBDBDBDBDBD
        BDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBFBFBFEEEEEE8A
        8A8A8888888989898787877676765F5F5F838383CCCCCCF9F9F9FAFAFACECECE
        7474748C8C8C9E9E9EA1A1A1A2A2A29393936F6F6FEFEFEFEFEFEFEFEFEFEFEF
        EFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEF6F
        6F6F939393A2A2A2A1A1A19E9E9E8C8C8C747474CECECEFAFAFAFDFDFDDFDFDF
        8888889F9F9FA8A8A8A9A9A9A9A9A9929292696969E8E8E8C8C8C8C7C7C7C7C7
        C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C8C8C8E8E8E869
        6969929292A9A9A9A9A9A9A8A8A89F9F9F888888DFDFDFFDFDFDFFFFFFF0F0F0
        999999A7A7A7AFAFAFB0B0B0B0B0B09797976F6F6FD6D6D6C7C7C7C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C7C7C7D6D6D66F
        6F6F979797B0B0B0B0B0B0AFAFAFA7A7A7999999F0F0F0FFFFFFFFFFFFF5F5F5
        A2A2A2AEAEAEB6B6B6B7B7B7B5B5B5A4A4A47474748484847979797676767676
        7676767676767676767676767676767676767676767676767679797984848474
        7474A4A4A4B3B3B3B2B2B2B4B4B4AEAEAEA2A2A2F5F5F5FFFFFFFFFFFFF4F4F4
        A6A6A6B5B5B5BDBDBDBEBEBEBEBEBEBBBBBBB3B3B3AAAAAAA7A7A7A6A6A6A6A6
        A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A7A7A7AAAAAAB3
        B3B3B5B5B5839D9F48ACB2829D9EB0B0B0A6A6A6F4F4F4FFFFFFFFFFFFF4F4F4
        AAAAAABCBCBCC4C4C4C5C5C5C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6
        C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6
        C6C6ADADAD0FBBDB00D7FE0EBBDBA4A4A4AAAAAAF4F4F4FFFFFFFFFFFFF5F5F5
        AEAEAEC3C3C3CBCBCBCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        CCCCB2B2B20FA3DB00B5FE0FA2DBAAAAAAAEAEAEF5F5F5FFFFFFFFFFFFF4F4F4
        B2B2B2CACACAD1D1D1D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2
        D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2
        D2D2CCCCCC92A3AE5192BB91A2ADC4C4C4B2B2B2F4F4F4FFFFFFFFFFFFF4F4F4
        B7B7B7D0D0D0D7D7D7D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8
        D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8
        D8D8D7D7D7C5C5C5B1B1B1C5C5C5CFCFCFB7B7B7F4F4F4FFFFFFFFFFFFF4F4F4
        B9B9B9D5D5D5DDDDDDDDDDDDDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDE
        DEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDE
        DEDECDCDCD69B17448D95C68B074C5C5C5B9B9B9F4F4F4FFFFFFFFFFFFF5F5F5
        BCBCBCDBDBDBE3E3E3E3E3E3E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4
        E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4
        E4E4C1C1C12BCA5C2EE2662BCA5CB9B9B9BCBCBCF5F5F5FFFFFFFFFFFFF5F5F5
        BEBEBEE0E0E0E8E8E8E9E9E9EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEA
        EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEA
        EAEAD8D8D854A9790EBC5C54A878CFCFCFBEBEBEF5F5F5FFFFFFFFFFFFF5F5F5
        C1C1C1E6E6E6EEEEEEEFEFEFF0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0
        F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0
        F0F0EEEEEEDDDDDDCACACADCDCDCE4E4E4C1C1C1F5F5F5FFFFFFFFFFFFF6F6F6
        C1C1C1E9E9E9F3F3F3F4F4F4F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F4F4F4F3F3F3E9E9E9C1C1C1F6F6F6FFFFFFFFFFFFFAFAFA
        C1C1C1E6E6E6F7F7F7F9F9F9F9F9F9FAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFA
        FAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFA
        FAFAFAFAFAF9F9F9F9F9F9F7F7F7E6E6E6C1C1C1FAFAFAFFFFFFFFFFFFFEFEFE
        D9D9D9C7C7C7EAEAEAF3F3F3F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F3F3F3EAEAEAC7C7C7D9D9D9FEFEFEFFFFFFFFFFFFFFFFFF
        FBFBFBDCDCDCC4C4C4C7C7C7BDBDBDB5B5B5B1B1B1C8C8C8C8C8C8C8C8C8C8C8
        C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8B1
        B1B1B5B5B5BDBDBDC7C7C7C4C4C4DCDCDCFBFBFBFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFEFEFEFBFBFBF7F7F7D2D2D2BFBFBFAFAFAFF0F0F0F0F0F0F0F0F0F0F0
        F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0AF
        AFAFBFBFBFD2D2D2F7F7F7FBFBFBFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFE3E3E3CACACABABABAF5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5BA
        BABACACACAE3E3E3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFF9F9F9C9C9C9BFBFBFF2F2F2F2F2F2F2F2F2F2F2
        F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2BF
        BFBFC9C9C9F9F9F9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5F5F5BCBCBCEFEFEFEFEFEFEFEFEFEFEF
        EFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFBC
        BCBCF5F5F5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD3D3D3ECECECECECECECECECECEC
        ECECECECECECECECECECECECECECECECECECECECECECECECECECECECECECECD3
        D3D3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD3D3D3E8E8E8E8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8D3
        D3D3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDCDCDCD6D6D6D5D5D5D5D5D5D5D5
        D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D6D6D6DC
        DCDCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBF1F1F1F1F1F1F1F1F1F1F1
        F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1FB
        FBFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
  end
  inherited DtSrc: TDataSource
    DataSet = ds_Colheita
    Left = 380
    Top = 189
  end
  object s_Colheita: TSQLDataSet
    CommandText = 
      'select  g.*,'#13#10'           c.CTR_N_CONTRATO,'#13#10'           fc.NOMEFO' +
      'RNECEDOR as COMPRADOR,'#13#10'           f.NOMEFORNECEDOR as EMPREITEI' +
      'RO,'#13#10'           p.PRO_DESCRICAO,'#13#10'           pr.PRODUTO  '#13#10'   fr' +
      'om PROGCOLHEITA g '#13#10'   inner join CONTRATOS c on c.CTR_ID = g.PG' +
      'C_IDCONTRATO '#13#10'   inner join PROPRIEDADES p on p.PRO_ID = c.PRO_' +
      'ID '#13#10'   left outer join PRODUTOS pr on pr.CODPRODUTO = g.PGC_PRO' +
      'DUTO '#13#10'   left outer join FORNECEDOR fc on fc.CODFORNECEDOR =   ' +
      ' c.CTR_COMPRADOR'#13#10'   left outer join FORNECEDOR f on f.CODFORNEC' +
      'EDOR =    c.CTR_TURMEIRO'#13#10'where (g.PGC_IDCONTRATO = :id)'#13#10'   and' +
      ' ((g.PGC_ID = :idp ) or (:idp = 9999999))'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'idp'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'idp'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 288
    Top = 189
    object s_ColheitaPGC_ID: TIntegerField
      FieldName = 'PGC_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object s_ColheitaPGC_IDCONTRATO: TIntegerField
      FieldName = 'PGC_IDCONTRATO'
      ProviderFlags = [pfInUpdate]
    end
    object s_ColheitaPGC_IDCOMPRADOR: TIntegerField
      FieldName = 'PGC_IDCOMPRADOR'
      ProviderFlags = [pfInUpdate]
    end
    object s_ColheitaPGC_IDEMPREITEIRO: TIntegerField
      FieldName = 'PGC_IDEMPREITEIRO'
      ProviderFlags = [pfInUpdate]
    end
    object s_ColheitaPGC_DATAINI: TDateField
      FieldName = 'PGC_DATAINI'
      ProviderFlags = [pfInUpdate]
    end
    object s_ColheitaPGC_DATAFIM: TDateField
      FieldName = 'PGC_DATAFIM'
      ProviderFlags = [pfInUpdate]
    end
    object s_ColheitaPGC_PRODUTO: TIntegerField
      FieldName = 'PGC_PRODUTO'
      ProviderFlags = [pfInUpdate]
    end
    object s_ColheitaPGC_QUTDE: TFloatField
      FieldName = 'PGC_QUTDE'
      ProviderFlags = [pfInUpdate]
    end
    object s_ColheitaPGC_QUTDECX: TFloatField
      FieldName = 'PGC_QUTDECX'
      ProviderFlags = [pfInUpdate]
    end
    object s_ColheitaPGC_COTA: TFloatField
      FieldName = 'PGC_COTA'
      ProviderFlags = [pfInUpdate]
    end
    object s_ColheitaVRC_TOTAL: TFloatField
      FieldName = 'VRC_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object s_ColheitaNTC_STATUS: TStringField
      FieldName = 'NTC_STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object s_ColheitaCTR_N_CONTRATO: TStringField
      FieldName = 'CTR_N_CONTRATO'
      ProviderFlags = []
      Size = 15
    end
    object s_ColheitaCOMPRADOR: TStringField
      FieldName = 'COMPRADOR'
      ProviderFlags = []
      Size = 30
    end
    object s_ColheitaEMPREITEIRO: TStringField
      FieldName = 'EMPREITEIRO'
      ProviderFlags = []
      Size = 50
    end
    object s_ColheitaPRO_DESCRICAO: TStringField
      FieldName = 'PRO_DESCRICAO'
      ProviderFlags = []
      Size = 100
    end
    object s_ColheitaPRODUTO: TStringField
      FieldName = 'PRODUTO'
      ProviderFlags = []
      Size = 300
    end
  end
  object p_Colheita: TDataSetProvider
    DataSet = s_Colheita
    UpdateMode = upWhereKeyOnly
    Left = 318
    Top = 189
  end
  object ds_Colheita: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'idp'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'idp'
        ParamType = ptInput
      end>
    ProviderName = 'p_Colheita'
    Left = 348
    Top = 189
    object ds_ColheitaPGC_ID: TIntegerField
      FieldName = 'PGC_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object ds_ColheitaPGC_IDCONTRATO: TIntegerField
      FieldName = 'PGC_IDCONTRATO'
      ProviderFlags = [pfInUpdate]
    end
    object ds_ColheitaPGC_IDCOMPRADOR: TIntegerField
      FieldName = 'PGC_IDCOMPRADOR'
      ProviderFlags = [pfInUpdate]
    end
    object ds_ColheitaPGC_IDEMPREITEIRO: TIntegerField
      FieldName = 'PGC_IDEMPREITEIRO'
      ProviderFlags = [pfInUpdate]
    end
    object ds_ColheitaPGC_DATAINI: TDateField
      FieldName = 'PGC_DATAINI'
      ProviderFlags = [pfInUpdate]
    end
    object ds_ColheitaPGC_DATAFIM: TDateField
      FieldName = 'PGC_DATAFIM'
      ProviderFlags = [pfInUpdate]
    end
    object ds_ColheitaPGC_PRODUTO: TIntegerField
      FieldName = 'PGC_PRODUTO'
      ProviderFlags = [pfInUpdate]
    end
    object ds_ColheitaPGC_QUTDE: TFloatField
      FieldName = 'PGC_QUTDE'
      ProviderFlags = [pfInUpdate]
    end
    object ds_ColheitaPGC_QUTDECX: TFloatField
      FieldName = 'PGC_QUTDECX'
      ProviderFlags = [pfInUpdate]
    end
    object ds_ColheitaPGC_COTA: TFloatField
      FieldName = 'PGC_COTA'
      ProviderFlags = [pfInUpdate]
    end
    object ds_ColheitaVRC_TOTAL: TFloatField
      FieldName = 'VRC_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object ds_ColheitaCTR_N_CONTRATO: TStringField
      FieldName = 'CTR_N_CONTRATO'
      ProviderFlags = []
      Size = 15
    end
    object ds_ColheitaCOMPRADOR: TStringField
      FieldName = 'COMPRADOR'
      ProviderFlags = []
      Size = 30
    end
    object ds_ColheitaEMPREITEIRO: TStringField
      FieldName = 'EMPREITEIRO'
      ProviderFlags = []
      Size = 50
    end
    object ds_ColheitaPRO_DESCRICAO: TStringField
      FieldName = 'PRO_DESCRICAO'
      ProviderFlags = []
      Size = 100
    end
    object ds_ColheitaNTC_STATUS: TStringField
      FieldName = 'NTC_STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object ds_ColheitaPRODUTO: TStringField
      FieldName = 'PRODUTO'
      ProviderFlags = []
      Size = 300
    end
  end
  object buscaContrato: TSQLClientDataSet
    CommandText = 
      'select v.VRC_IDCONT, v.VRC_PRECOUNT, v.VRP_QUTDECX,'#13#10'       pd.C' +
      'ODPRO, pd.PRODUTO, pd.CODPRODUTO,  '#13#10'       c.CTR_ID, c.CTR_N_CO' +
      'NTRATO, '#13#10'       p.PRO_ID, p.PRO_DESCRICAO,'#13#10'       u.NOMEFORNEC' +
      'EDOR as COMPRADOR, u.CODFORNECEDOR as IDCOMPRADOR,'#13#10'       f.NOM' +
      'EFORNECEDOR as EMPREITEIRO,  f.CODFORNECEDOR, '#13#10'       fo.NOMEFO' +
      'RNECEDOR as PROPRIETARIO  '#13#10'  from VARIEDADECONTRATADA v  '#13#10'   i' +
      'nner join CONTRATOS c on c.CTR_ID = v.VRC_IDCONT'#13#10'   inner join ' +
      'PRODUTOS pd on pd.CODPRODUTO = v.VRC_IDPROD'#13#10'   inner join PROPR' +
      'IEDADES p on p.PRO_ID = c.PRO_ID '#13#10'   left outer join FORNECEDOR' +
      ' u on u.CODFORNECEDOR =    c.CTR_COMPRADOR'#13#10'   left outer join F' +
      'ORNECEDOR f on f.CODFORNECEDOR =    c.CTR_TURMEIRO'#13#10'   left oute' +
      'r join FORNECEDOR fo on fo.CODFORNECEDOR = c.FOR_ID '#13#10'where c.CT' +
      'R_N_CONTRATO LIKE :desc'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'desc'
        ParamType = ptInput
      end>
    DBConnection = DM.sqlsisAdimin
    Left = 674
    Top = 318
    object buscaContratoCTR_N_CONTRATO: TStringField
      DisplayLabel = 'N'#186' Contrato'
      FieldName = 'CTR_N_CONTRATO'
      Required = True
      Size = 10
    end
    object buscaContratoPROPRIETARIO: TStringField
      DisplayLabel = 'Proprietario'
      FieldName = 'PROPRIETARIO'
      Size = 50
    end
    object buscaContratoPRO_DESCRICAO: TStringField
      DisplayLabel = 'Propriedade'
      DisplayWidth = 50
      FieldName = 'PRO_DESCRICAO'
      Size = 60
    end
    object buscaContratoPRODUTO: TStringField
      DisplayLabel = 'FRUTA'
      DisplayWidth = 60
      FieldName = 'PRODUTO'
      Required = True
      Size = 60
    end
    object buscaContratoCOMPRADOR: TStringField
      DisplayLabel = 'Comprador'
      FieldName = 'COMPRADOR'
      Size = 30
    end
    object buscaContratoEMPREITEIRO: TStringField
      DisplayLabel = 'Empreiteiro'
      FieldName = 'EMPREITEIRO'
      Size = 50
    end
    object buscaContratoCTR_ID: TIntegerField
      FieldName = 'CTR_ID'
      Required = True
      Visible = False
    end
    object buscaContratoCODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      Visible = False
    end
    object buscaContratoVRC_IDCONT: TIntegerField
      FieldName = 'VRC_IDCONT'
      Required = True
    end
    object buscaContratoVRP_QUTDECX: TFloatField
      DisplayLabel = 'Qtde'
      FieldName = 'VRP_QUTDECX'
    end
    object buscaContratoVRC_PRECOUNT: TFloatField
      FieldName = 'VRC_PRECOUNT'
    end
    object buscaContratoCODPRO: TStringField
      FieldName = 'CODPRO'
      Size = 15
    end
    object buscaContratoPRO_ID: TIntegerField
      FieldName = 'PRO_ID'
      Required = True
      Visible = False
    end
    object buscaContratoCODPRODUTO: TIntegerField
      FieldName = 'CODPRODUTO'
      Visible = False
    end
    object buscaContratoIDCOMPRADOR: TIntegerField
      FieldName = 'IDCOMPRADOR'
      Visible = False
    end
  end
  object s_Cotas: TSQLDataSet
    CommandText = 
      'select n.*,'#13#10'          t.NOMETRANSP, t.CODTRANSP, t.PLACATRANSP,' +
      ' t.CNPJ_CPF, '#13#10'          p.CODPRODUTO, p.CODPRO,  p.PRODUTO, '#13#10' ' +
      '         c.CTR_N_CONTRATO '#13#10'   from NOTASPORCONTRATO n '#13#10'  inner' +
      ' join  CONTRATOS c on c.CTR_ID = n.CTR_ID '#13#10'  left outer join TR' +
      'ANSPORTADORA t on t.CODTRANSP = n.NTC_MOTORISTA '#13#10'  left outer j' +
      'oin PRODUTOS p on p.CODPRODUTO = n.NTC_PRODUTO '#13#10'where n.PGC_ID ' +
      '= :id'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 410
    Top = 381
    object s_CotasNTC_ID: TIntegerField
      FieldName = 'NTC_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object s_CotasCTR_ID: TIntegerField
      FieldName = 'CTR_ID'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_MOTORISTA: TIntegerField
      FieldName = 'NTC_MOTORISTA'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_QUTDENF: TIntegerField
      FieldName = 'NTC_QUTDENF'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_FRETISTA: TIntegerField
      FieldName = 'NTC_FRETISTA'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_DATA: TDateField
      FieldName = 'NTC_DATA'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_ENTRADA: TDateField
      FieldName = 'NTC_ENTRADA'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_SAIDA: TDateField
      FieldName = 'NTC_SAIDA'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_STATUS: TStringField
      FieldName = 'NTC_STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object s_CotasNTC_PRODUTO: TIntegerField
      FieldName = 'NTC_PRODUTO'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_PESOBRUTO: TFloatField
      FieldName = 'NTC_PESOBRUTO'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_REFUGO: TFloatField
      FieldName = 'NTC_REFUGO'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_OUTROS: TFloatField
      FieldName = 'NTC_OUTROS'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_PESOTARA: TFloatField
      FieldName = 'NTC_PESOTARA'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_PESOLIQUIDO: TFloatField
      FieldName = 'NTC_PESOLIQUIDO'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_USUARIOPORTARIA: TIntegerField
      FieldName = 'NTC_USUARIOPORTARIA'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_USUARIOBALANCA: TIntegerField
      FieldName = 'NTC_USUARIOBALANCA'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNTC_IDCOMPRA: TIntegerField
      FieldName = 'NTC_IDCOMPRA'
      ProviderFlags = [pfInUpdate]
    end
    object s_CotasNOMETRANSP: TStringField
      FieldName = 'NOMETRANSP'
      ProviderFlags = []
      Size = 50
    end
    object s_CotasCODTRANSP: TIntegerField
      FieldName = 'CODTRANSP'
      ProviderFlags = []
    end
    object s_CotasPLACATRANSP: TStringField
      FieldName = 'PLACATRANSP'
      ProviderFlags = []
      Size = 8
    end
    object s_CotasCNPJ_CPF: TStringField
      FieldName = 'CNPJ_CPF'
      ProviderFlags = []
    end
    object s_CotasCODPRODUTO: TIntegerField
      FieldName = 'CODPRODUTO'
      ProviderFlags = []
    end
    object s_CotasCODPRO: TStringField
      FieldName = 'CODPRO'
      ProviderFlags = []
      Size = 15
    end
    object s_CotasPRODUTO: TStringField
      FieldName = 'PRODUTO'
      ProviderFlags = []
      Size = 300
    end
    object s_CotasCTR_N_CONTRATO: TStringField
      FieldName = 'CTR_N_CONTRATO'
      ProviderFlags = []
      Size = 15
    end
    object s_CotasPGC_ID: TIntegerField
      FieldName = 'PGC_ID'
      ProviderFlags = [pfInUpdate]
    end
  end
  object p_Cotas: TDataSetProvider
    DataSet = s_Cotas
    UpdateMode = upWhereKeyOnly
    Left = 448
    Top = 381
  end
  object ds_Cotas: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'p_Cotas'
    Left = 488
    Top = 381
    object ds_CotasNTC_ID: TIntegerField
      FieldName = 'NTC_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object ds_CotasCTR_ID: TIntegerField
      FieldName = 'CTR_ID'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_MOTORISTA: TIntegerField
      FieldName = 'NTC_MOTORISTA'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_QUTDENF: TIntegerField
      FieldName = 'NTC_QUTDENF'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_FRETISTA: TIntegerField
      FieldName = 'NTC_FRETISTA'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_DATA: TDateField
      FieldName = 'NTC_DATA'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_ENTRADA: TDateField
      FieldName = 'NTC_ENTRADA'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_SAIDA: TDateField
      FieldName = 'NTC_SAIDA'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_STATUS: TStringField
      FieldName = 'NTC_STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object ds_CotasNTC_PRODUTO: TIntegerField
      FieldName = 'NTC_PRODUTO'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_PESOBRUTO: TFloatField
      FieldName = 'NTC_PESOBRUTO'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_REFUGO: TFloatField
      FieldName = 'NTC_REFUGO'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_OUTROS: TFloatField
      FieldName = 'NTC_OUTROS'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_PESOTARA: TFloatField
      FieldName = 'NTC_PESOTARA'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_PESOLIQUIDO: TFloatField
      FieldName = 'NTC_PESOLIQUIDO'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_USUARIOPORTARIA: TIntegerField
      FieldName = 'NTC_USUARIOPORTARIA'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_USUARIOBALANCA: TIntegerField
      FieldName = 'NTC_USUARIOBALANCA'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNTC_IDCOMPRA: TIntegerField
      FieldName = 'NTC_IDCOMPRA'
      ProviderFlags = [pfInUpdate]
    end
    object ds_CotasNOMETRANSP: TStringField
      FieldName = 'NOMETRANSP'
      ProviderFlags = []
      Size = 50
    end
    object ds_CotasCODTRANSP: TIntegerField
      FieldName = 'CODTRANSP'
      ProviderFlags = []
    end
    object ds_CotasPLACATRANSP: TStringField
      FieldName = 'PLACATRANSP'
      ProviderFlags = []
      Size = 8
    end
    object ds_CotasCNPJ_CPF: TStringField
      FieldName = 'CNPJ_CPF'
      ProviderFlags = []
    end
    object ds_CotasCODPRODUTO: TIntegerField
      FieldName = 'CODPRODUTO'
      ProviderFlags = []
    end
    object ds_CotasCODPRO: TStringField
      FieldName = 'CODPRO'
      ProviderFlags = []
      Size = 15
    end
    object ds_CotasPRODUTO: TStringField
      FieldName = 'PRODUTO'
      ProviderFlags = []
      Size = 300
    end
    object ds_CotasCTR_N_CONTRATO: TStringField
      FieldName = 'CTR_N_CONTRATO'
      ProviderFlags = []
      Size = 15
    end
    object ds_CotasPGC_ID: TIntegerField
      FieldName = 'PGC_ID'
      ProviderFlags = [pfInUpdate]
    end
  end
  object busca_variedade: TSQLClientDataSet
    CommandText = 
      'select v.*, '#13#10'          p.CODPRODUTO,'#13#10'          p.PRODUTO, '#13#10'  ' +
      '        p.UNIDADEMEDIDA,'#13#10'          p.CODPRO  '#13#10'   from VARIEDAD' +
      'ECONTRATADA v'#13#10'inner join PRODUTOS p on  p.CODPRODUTO = v.VRC_ID' +
      'PROD '#13#10'where  p.PRODUTO Like :prod '#13#10'    and  v.VRC_IDCONT= :id'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'prod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    DBConnection = DM.sqlsisAdimin
    Left = 608
    Top = 317
    object busca_variedadeCODPRO: TStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODPRO'
      Size = 15
    end
    object busca_variedadePRODUTO: TStringField
      DisplayLabel = 'Produto'
      FieldName = 'PRODUTO'
      Required = True
      Size = 300
    end
    object busca_variedadeVRC_ID: TIntegerField
      FieldName = 'VRC_ID'
      Required = True
      Visible = False
    end
    object busca_variedadeVRC_IDCONT: TIntegerField
      FieldName = 'VRC_IDCONT'
      Required = True
      Visible = False
    end
    object busca_variedadeVRC_IDPROD: TIntegerField
      FieldName = 'VRC_IDPROD'
      Required = True
      Visible = False
    end
    object busca_variedadeVRC_QUTDE: TFloatField
      FieldName = 'VRC_QUTDE'
      Visible = False
    end
    object busca_variedadeVRP_QUTDECX: TFloatField
      FieldName = 'VRP_QUTDECX'
      Visible = False
    end
    object busca_variedadeVRC_PRECOUNT: TFloatField
      FieldName = 'VRC_PRECOUNT'
      Visible = False
    end
    object busca_variedadeVRC_TOTAL: TFloatField
      FieldName = 'VRC_TOTAL'
      Visible = False
    end
    object busca_variedadeCODPRODUTO: TIntegerField
      FieldName = 'CODPRODUTO'
      Required = True
      Visible = False
    end
    object busca_variedadeUNIDADEMEDIDA: TStringField
      FieldName = 'UNIDADEMEDIDA'
      Visible = False
      FixedChar = True
      Size = 2
    end
  end
  object buscaMotorista: TSQLClientDataSet
    CommandText = 'select * from TRANSPORTADORA '#13#10'where NOMETRANSP LIKE :desc'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'desc'
        ParamType = ptInput
      end>
    DBConnection = DM.sqlsisAdimin
    Left = 640
    Top = 317
    object buscaMotoristaCODTRANSP: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODTRANSP'
      Required = True
    end
    object buscaMotoristaNOMETRANSP: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'NOMETRANSP'
      Size = 50
    end
    object buscaMotoristaPLACATRANSP: TStringField
      DisplayLabel = 'Placa'
      FieldName = 'PLACATRANSP'
      Size = 8
    end
    object buscaMotoristaCNPJ_CPF: TStringField
      FieldName = 'CNPJ_CPF'
      Visible = False
    end
    object buscaMotoristaEND_TRANSP: TStringField
      FieldName = 'END_TRANSP'
      Visible = False
      Size = 80
    end
    object buscaMotoristaCIDADE_TRANSP: TStringField
      FieldName = 'CIDADE_TRANSP'
      Visible = False
      Size = 50
    end
    object buscaMotoristaUF_VEICULO_TRANSP: TStringField
      FieldName = 'UF_VEICULO_TRANSP'
      Visible = False
      FixedChar = True
      Size = 2
    end
    object buscaMotoristaUF_TRANSP: TStringField
      FieldName = 'UF_TRANSP'
      Visible = False
      FixedChar = True
      Size = 2
    end
    object buscaMotoristaFRETE: TStringField
      FieldName = 'FRETE'
      Visible = False
      FixedChar = True
      Size = 1
    end
    object buscaMotoristaINSCRICAOESTADUAL: TStringField
      FieldName = 'INSCRICAOESTADUAL'
      Visible = False
    end
    object buscaMotoristaCORPONF1: TStringField
      FieldName = 'CORPONF1'
      Visible = False
      Size = 75
    end
    object buscaMotoristaCORPONF2: TStringField
      FieldName = 'CORPONF2'
      Visible = False
      Size = 75
    end
    object buscaMotoristaCORPONF3: TStringField
      FieldName = 'CORPONF3'
      Visible = False
      Size = 75
    end
    object buscaMotoristaCORPONF4: TStringField
      FieldName = 'CORPONF4'
      Visible = False
      Size = 75
    end
    object buscaMotoristaCORPONF5: TStringField
      FieldName = 'CORPONF5'
      Visible = False
      Size = 75
    end
    object buscaMotoristaCORPONF6: TStringField
      FieldName = 'CORPONF6'
      Visible = False
      Size = 75
    end
    object buscaMotoristaFONE: TStringField
      FieldName = 'FONE'
      Visible = False
      Size = 15
    end
    object buscaMotoristaFONE2: TStringField
      FieldName = 'FONE2'
      Visible = False
      Size = 15
    end
    object buscaMotoristaFAX: TStringField
      FieldName = 'FAX'
      Visible = False
      Size = 15
    end
    object buscaMotoristaCONTATO: TStringField
      FieldName = 'CONTATO'
      Visible = False
      Size = 40
    end
    object buscaMotoristaBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Visible = False
      Size = 40
    end
    object buscaMotoristaCEP: TStringField
      FieldName = 'CEP'
      Visible = False
      Size = 15
    end
    object buscaMotoristaFANTASIA: TStringField
      FieldName = 'FANTASIA'
      Visible = False
      Size = 50
    end
    object buscaMotoristaEMAIL: TStringField
      FieldName = 'EMAIL'
      Visible = False
      Size = 100
    end
  end
  object ds1: TDataSource
    DataSet = ds_Cotas
    Left = 523
    Top = 381
  end
  object serieNFP: TSQLDataSet
    CommandText = 'select ULTIMO_NUMERO from SERIES '#13#10'where SERIE = '#39'NPF'#39
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.sqlsisAdimin
    Left = 624
    Top = 384
    object serieNFPULTIMO_NUMERO: TIntegerField
      FieldName = 'ULTIMO_NUMERO'
      Required = True
    end
  end
  object VCLReport1: TVCLReport
    AsyncExecution = False
    Title = 'Untitled'
    Left = 440
    Top = 221
  end
end
